
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Csla
Imports Csla.Data

<Serializable()> _
Public Class ro_divisionChildRootList
    Inherits Csla.ReadOnlyListBase(Of ro_divisionChildRootList, ro_divisionChild)

#Region " Factory Methods "

    Friend Shared Function Getro_divisionChildRootList(ByVal dr As SafeDataReader) As ro_divisionChildRootList
        Return New ro_divisionChildRootList(dr)
    End Function

    Private Sub New(ByVal dr As SafeDataReader)
        Fetch(dr)
    End Sub

#End Region ' Factory Methods


#Region " Data Access "
    Private Sub Fetch(ByVal dr As SafeDataReader)
        RaiseListChangedEvents = False
        IsReadOnly = False

        While dr.Read()
            Me.Add(ro_divisionChild.Getro_divisionChild(dr))

            IsReadOnly = True
            RaiseListChangedEvents = True
        End While
    End Sub

#End Region

End Class

